home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 June / Ahoy_Magazine_88-06_1988_Double_L.d64 / Blob Demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  788b  |  25 lines
  1. 10 ifa=0thena=1:load"[205]ob [194]lob",8,1
  2. 20 forx=.to63:poke832+x,255:next:forx=.to7:poke2040+x,13:next
  3. 30 forx=.to3:poke53248+39+x,1+z:z=-(z=0):next
  4. 40 forx=4to7:z=-(z=0):poke53248+39+x,1+z:next
  5. 50 poke53248+23,0:poke53248+29,0:poke53248+16,0:poke53248+21,255
  6. 60 poke53281,0:poke53280,0:print"[147]"tab(11)"[154]m o b    b l o b !!"
  7. 70 printtab(10)"joystick in port two"
  8. 80 printtab(1)"[156]press numeric keys 1-6 to change speed"
  9. 90 printtab(1)"press h for horizontal, v for vertical"
  10. 100 printtab(8)"press a for all directions"
  11. 110 sys49152
  12. 120 getn$:n=val(n$):ifn>0andn<7thenpoke49625,n
  13. 130 ifn$="a"thensys49552,255
  14. 140 ifn$="v"thensys49552,17
  15. 150 ifn$="h"thensys49552,68
  16. 160 goto120
  17. 170 rem by h.l. morimodo
  18. 180 rem i give my consent to use this
  19. 190 rem routine in games specifically
  20. 200 rem submitted to ahoy! magazine for
  21. 210 rem publication
  22. 220 rem secret sys
  23. 230 rem sys 49532,150,108
  24. 240 rem for a ghostly checkerboard
  25.